decoder-tests.el (decoder-tests-prefer-utf-8-read):

Use with-ccoding-priority to avoid side-effect (Bug#14781).

diff --git a/test/automated/decoder-tests.el b/test/automated/decoder-tests.el
index e1b05faf3c01d44bf28e81e4c445b1a15a78b9b5..2e99fd7f115033f2e542e9c9838221941474abaa 100644 (file)
--- a/test/automated/decoder-tests.el
+++ b/test/automated/decoder-tests.el
@@ -213,10 +213,9 @@
 ;; PREFER is non-nil, prefer that coding system before reading.
 
 (defun decoder-tests-prefer-utf-8-read (file detect prefer)
-  (if prefer
-      (prefer-coding-system prefer))
   (with-temp-buffer
-    (insert-file-contents file)
+    (with-coding-priority (if prefer (list prefer))
+      (insert-file-contents file))
     (if (eq buffer-file-coding-system detect)
        nil
       (format "Invalid detection: %s" buffer-file-coding-system))))